% V20210224 - 8.12 GW_ADD_TITLE

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
title$ = GW_ADD_BAR_TITLE$("Title Example")

% Add title to page.
GW_ADD_TITLEBAR(p, title$)

% Add text.
GW_ADD_TEXT(p, "This is an example of the TITLE control.")

% Add the title.
GW_ADD_TITLE(p, "The longest title in the history of the world.")

% Now show the page.
GW_RENDER(p)

DO  % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

UNTIL r$ = "BACK" % End when BACK key is pressed.

END "End of Title example."